home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / untested / tcpip / blddemos.sx next >
Encoding:
Text File  |  1996-05-21  |  1.8 KB  |  80 lines  |  [TEXT/ttxt]
  1. --<<
  2.  
  3. -- Build the demos
  4.  
  5. module builddirectories
  6. uses scriptx
  7. exports buildDir, widgetstc
  8. end
  9.  
  10. in module builddirectories
  11.  
  12. global buildDir := thescriptdir
  13. global widgetstc := open librarycontainer \
  14.         dir: thestartdir \
  15.         path: "widgets.sxl"
  16.  
  17. -- Load the source
  18.  
  19. filein (spawn buildDir "web") name: "build.sx"
  20. filein (spawn buildDir "browser") name: "build.sx"
  21. filein (spawn buildDir "ifish") name: "loadme.sx"
  22. filein (spawn buildDir "browser") name: "embed.sx"
  23. filein builddir name: "spaces6.sx"
  24.  
  25. -- Build the containers
  26.  
  27. module buildtitles
  28. uses scriptx, builddirectories 
  29. uses WebInterface, WebBrowserInterface
  30. uses EmbeddedBouncingBall, webspaces6, InternetFish
  31. end
  32.  
  33. in module buildtitles
  34.  
  35. global  webtc := new titlecontainer dir: buildDir path: "web.sxt"
  36. append webtc (getmodule @WebImplementation)
  37. append webtc (getmodule @WebInterface)
  38. webtc.startupAction := startWebToolkit
  39.  
  40. global  hotsxtc := new titlecontainer dir: buildDir path: "hotsx.sxt"
  41. append hotsxtc (getmodule @WebBrowser)
  42. append hotsxtc (getmodule @HTMLImplementation)
  43. append hotsxtc (getmodule @WebBrowserInterface) -- ??
  44. hotsxtc.startupAction := startWebBrowser
  45. adduser widgetstc hotsxtc
  46. adduser webtc hotsxtc
  47.  
  48. -- Build the fish
  49.  
  50. global  fishtc := new titlecontainer dir: buildDir path: "ifish.sxt"
  51. append     fishtc (getmodule @internetfish)
  52. fishtc.startupAction := startFish
  53. adduser widgetstc fishtc
  54. adduser webtc hotsxtc
  55.  
  56. -- 
  57.  
  58. global spaces6tc  := new titlecontainer dir: buildDir path: "spaces6.sxt"
  59. (
  60.     local da := importsomemedia spaces6tc
  61.     local win := createTheWindow spaces6tc
  62.     createTheBall win da
  63.     append spaces6tc win
  64.     spaces6tc.startupAction := startSpaces6
  65.  
  66. )
  67.  
  68. -- Build the embedded app
  69.  
  70. global embeddedtc := new titleContainer dir: buildDir path: "embed.sxt"
  71. append embeddedtc bounceApplet
  72.  
  73. -- Close stuff
  74.  
  75. close webtc
  76. close hotsxtc
  77. close fishtc
  78. close spaces6tc
  79. close embeddedtc
  80.